home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / x / volume5 / xfroot / patch1 < prev    next >
Encoding:
Internet Message Format  |  1989-09-29  |  1.1 KB
  1. Path: uunet!island!argv
  2. From: argv@island.uu.net (Dan Heller)
  3. Newsgroups: comp.sources.x
  4. Subject: v05i007: xfroot, Patch1
  5. Message-ID: <1096@island.uu.net>
  6. Date: 29 Sep 89 08:07:24 GMT
  7. Organization: Island Graphics, Marin County, California
  8. Lines: 29
  9. Approved: island!argv@sun.com
  10.  
  11. Submitted-by: Ed Kubaitis <uunet!ux1.cso.uiuc.edu!ejk>
  12. Posting-number: Volume 5, Issue 7
  13. Archive-name: xfroot/patch1
  14. Patch-To: xfroot: Volume 5, Issue 3
  15.  
  16. *** xfroot.c.orig    Sat Sep 23 11:14:26 1989
  17. --- xfroot.c    Mon Sep 25 08:12:48 1989
  18. ***************
  19. *** 90,98
  20.   
  21.   hopset() {
  22.      int r = Ranfseed; double pmax=1.0*W, logpmax=log(pmax);
  23. !    A = (A) ? A : exp(Ranf()*logpmax); if (r&2) A = -A;
  24. !    B = (B) ? B : exp(Ranf()*logpmax); if (r&4) B = -B;
  25. !    C = (C) ? C : Ranf()*pmax;         if (r&8) C = -C;
  26.      }
  27.   
  28.   
  29.  
  30. --- 90,98 -----
  31.   
  32.   hopset() {
  33.      int r = Ranfseed; double pmax=1.0*W, logpmax=log(pmax);
  34. !    if (!A) { A = exp(Ranf()*logpmax); if (r&2) A = -A; }
  35. !    if (!B) { B = exp(Ranf()*logpmax); if (r&4) B = -B; }
  36. !    if (!C) { C = Ranf()*pmax;         if (r&8) C = -C; }
  37.      }
  38.   
  39.   
  40.